home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t4.d64 / 1541backup(free) (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  4KB  |  147 lines
  1. 1 FORI=828TO883:READA:POKEI,A:NEXTI
  2. 10 REM"D=DSAVE"@BACK2",D0:?DS$:CATALOGD0
  3. 20 BB[178][194](44)[170]27:[151]995,BB
  4. 30 [151]998,[194](55):[151]999,[194](56):[151]55,0:[151]56,BB:[156]
  5. 40 BB[178][194](995)
  6. 50 N[178][194](999)[171]BB[171]1:BA[178]BB[172]256:MA[178]828
  7. 60 [134]BM%(35,24)
  8. 70 [129]J[178]0[164]7:TA(J)[178]2[174]J:[130]
  9. 80 [153]"LOADBACKUP 1541WAIT - JIM LAW / KEITH HOPE"
  10. 90 [153]"'GOTO10000' IF PROGRAM QUITS ABNORMALLY"
  11. 100 [153]""N"BUFFERS AVAILABLE"
  12. 110 [159]1,8,15
  13. 200 [143] *** MAIN FUNCTIONS ****
  14. 210 [141]1000
  15. 220 D$[178]"S":[141]3200:I2$[178]IR$
  16. 230 [139]DR$[179][177]"2A"[167][153]"ILLEGAL DOS 1.0 DISKWAIT":[137]10000
  17. 240 [139]I2$[178]I1$[167][153]"SOURCE AND DESTINATION HAVE SAME ID CODEWAIT":[137]10000
  18. 250 [141]2500
  19. 260 T[178]TS:S[178]0:NU[178]1:T1[178]T:S1[178]S
  20. 270 [152]1,"I0":[159]3,8,3,"#"
  21. 280 [153]"READING BLOCK #";
  22. 290 [139]BM%(T1,S1)[178]0[167][141]2000:NU[178]NU[170]1:[139]NU[177]N[167]320
  23. 300 S1[178]S1[170]1:[139]S1[177]20[167]S1[178]0:T1[178]T1[170]1
  24. 310 [139]T1[179]TF[170]1[167]290
  25. 320 [153]""
  26. 330 [160]3
  27. 340 D$[178]"D":[141]3200:[139]IR$[179][177]I1$[167][137]340
  28. 350 [152]1,"I0":[159]3,8,3,"#"
  29. 360 [153]"WRITING BUFFER #";
  30. 370 NU[178]1:T1[178]T:S1[178]S
  31. 380 [139]BM%(T1,S1)[178]0[167][141]2200:NU[178]NU[170]1:[139]NU[177]N[167]410
  32. 390 S1[178]S1[170]1:[139]S1[177]20[167]S1[178]0:T1[178]T1[170]1
  33. 400 [139]T1[179]TF[170]1[167]380
  34. 410 [153]""
  35. 420 [160]3
  36. 430 S[178]S1[170]1:[139]S[177]20[167]S[178]0:T1[178]T1[170]1
  37. 440 T[178]T1:[139]T[177]TF[167]500
  38. 450 D$[178]"S":[141]3200:[139]IR$[179][177]I2$[167]450
  39. 460 NU[178]1:T1[178]T:S1[178]S:[137]270
  40. 500 [143] FINISHED XFERS
  41. 510 [160]1
  42. 520 [151]55,[194](998):[151]56,[194](999):[156]
  43. 530 [153]"BACKUP COMPLETE"
  44. 540 [159]1,8,0,"$0"
  45. 550 [161]#1,A$:[139]A$[179][177]""[167]550
  46. 560 [153]A$;:[137]610
  47. 570 [161]#1,A$:SS[178]ST:A[178][195](A$):[139]A[167]A[178][198](A$)
  48. 580 [161]#1,B$:SS[178]ST:B[178][195](B$):[139]B[167]A[178][198](B$)
  49. 590 [139]SS[167]660
  50. 600 [139]A[178]1[175]B[178]1[167][141]630
  51. 610 [161]#1,A$:[139]A$[178]""[167][153]:[137]570
  52. 620 [153]A$;:[137]610
  53. 630 [161]#1,A$:SS[178]ST:A[178][195](A$):[139]A[167]A[178][198](A$)
  54. 640 [161]#1,B$:SS[178]ST:B[178][195](B$):[139]B[167]B[178][198](B$)
  55. 650 N[178]B[172]256[170]A:[153]N;:[142]
  56. 660 [160]1
  57. 670 [128]
  58. 1000 [143] HEADER DEST DISK
  59. 1010 [153]"INSERT DESTINATION DISK TO BE FORMATTED"
  60. 1020 [133]"DISK NAMECLOSE                CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";DN$
  61. 1030 [139]DN$[178]"CLOSE"[167][153]"ONONON";:[137]1020
  62. 1040 [139][195](DN$)[177]16[167][156]:[137]40
  63. 1050 F[178]0:[129]J[178]1[164][195](DN$):S1$[178][202](DN$,J,1)
  64. 1060 [139]S1$[178]"CLOSE"[176]S1$[178][199](34)[167]F[178]1
  65. 1070 [130]J:[139]F[167][153]"ONONON";:[137]1020
  66. 1080 [133]"UNIQUE DISK IDCLOSE                    CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";I1$
  67. 1090 [139]I1$[178]"CLOSE"[167][153]"ONON";:[137]1080
  68. 1100 [139][195](I1$)[179][177]2[167][153]"ONON";:[137]1080
  69. 1110 [152]1,"N0:"[170]DN$[170]","[170]I1$
  70. 1120 [141]3000
  71. 1130 [139]ER[167][153]ER$:[137]10000
  72. 1140 [142]
  73. 2000 [143] READ BLOCK T1,S1 TO BUFFER # NU
  74. 2010 C[178].:[143]C=0
  75. 2020 [152]1,"U1";3;0;T1;S1
  76. 2030 [141]3000:[139][168]ER[167]2060
  77. 2040 C[178]C[170]1:[139]C[179]3[137]2020
  78. 2050 [153]ER$:[129]J[178](BB[170]NU)[172]256[164](BB[170]NU)[172]256[170]255:[151]J,.:[130]J:[137]2100
  79. 2060 [152]1,"B-P";3;0
  80. 2070 [139]NU[179][177]0[167][153]"   CMDCMDCMD";[201]("  "[170][196](NU),3);"CMDCMDCMD";
  81. 2080 [151]996,[194](3):[151]997,[194](4):[151]4,BB[170]NU:[158]MA
  82. 2085 [151]3,[194](996):[151]4,[194](997)
  83. 2090 [139]ST[179][177].[175]ST[179][177]64[167][141]3000:[137]2050:[143] C=0
  84. 2100 [142]
  85. 2200 [143] WRITE BLOCK T1,S1 FROM BUFFER # NU
  86. 2210 C[178].:[143]C=0
  87. 2220 [152]1,"B-A";0;T1;S1:[152]1,"B-P";3;0
  88. 2230 [153]"   CMDCMDCMD";[201]("  "[170][196](NU),3);"CMDCMDCMD";
  89. 2240 [151]996,[194](3):[151]997,[194](4):[151]4,BB[170]NU:[158]MA[170]3
  90. 2245 [151]3,[194](996):[151]4,[194](997)
  91. 2250 [139]ST[179][177].[175]ST[179][177]64[167][153]"IEEE WRITE ERROR"ST"WAIT":[137]10000:[143] C=0
  92. 2260 [152]1,"U2";3;0;T1;S1
  93. 2270 [141]3000:[139][168]ER[167]2300
  94. 2280 C[178]C[170]1:[139]C[179]3[167]2260
  95. 2290 [153]"UNRECOVERABLE WRITE ERROR"ER$:[137]10000
  96. 2300 [142]
  97. 2500 [143] GET BAM TO BM%(T,S)
  98. 2510 TS[178]1:TF[178].:[143] TF=0
  99. 2520 [152]1,"I0":[159]3,8,3,"#"
  100. 2530 S9[178]0
  101. 2540 [153]"TRACK #   BLOCKS TO XFER"
  102. 2550 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  103. 2560 NU[178]0:T1[178]18:S1[178]0:C0$[178][199](.):[141]2000
  104. 2570 BY[178]4
  105. 2580 T%[178](BY[171]4)[173]4[170]1
  106. 2590 [153]"  ";T%;
  107. 2600 [139][194](BA[170]BY)[178].[167][129]J[178].[164]20:BM%(T%,J)[178].:[130]:BY[178]BY[170]4:[137]2650
  108. 2610 S[178]0
  109. 2620 BY[178]BY[170]1:A0[178][194](BA[170]BY):[129]J[178].[164]7:BM%(T%,S)[178]A0[175]TA(J):S[178]S[170]1:[130]
  110. 2630 [139]S[179]22[167]2620
  111. 2640 BY[178]BY[170]1
  112. 2650 ES[178]21:[139]T%[177]17[167]ES[178]19
  113. 2660 [139]T%[177]24[167]ES[178]18
  114. 2670 [139]T%[177]30[167]ES[178]17
  115. 2680 [129]J[178]ES[164]24:BM%(T%,J)[178][171]1:[130]
  116. 2690 SM[178].:[129]J[178].[164]20:[139]BM%(T%,J)[178].[167]SM[178]SM[170]1
  117. 2700 [130]:[153][163]12);SM:S9[178]S9[170]SM
  118. 2710 [139]SM[178].[175]TS[178]T%[167]TS[178]TS[170]1:[137]2730
  119. 2720 [139]SM[179][177].[167]TF[178]T%
  120. 2730 [139]BY[179]143[167]2580
  121. 2740 [160]3
  122. 2750 [153]"START =";TS;" FINISH =";TF
  123. 2760 [153]"A TOTAL OF";S9;"BLOCKS TO XFER"
  124. 2770 S8[178]90[170]25[170](.650[170].980)[172]S9
  125. 2780 S7[178][181](S8[173]60):[153]"APPROX";S7":"[181](S8[171]S7[172]60);"FOR COPY"
  126. 2790 [142]
  127. 3000 [143] READ ERR CH TO ER,ER$
  128. 3010 [132]1,E0$,E1$,E2$,E3$:ER$[178]E0$[170]","[170]E1$[170]","[170]E2$[170]","[170]E3$
  129. 3020 ER[178][195](E0$):[139]ER[167]ER[178][197](E0$)
  130. 3030 [142]
  131. 3200 [143] INSTRUCT TO SWAP TO DISK GIVEN IN D$
  132. 3210 [139]D$[178]"D"[167]S1$[178]"DESTINATION":[137]3230
  133. 3220 S1$[178]"SOURCE"
  134. 3230 [153]"INSERT ";S1$;" DISK, PRESS SPACEWAIT"
  135. 3240 [161]A$:[139]A$[179][177]" "[167]3240
  136. 3250 [159]2,8,0,"$0"
  137. 3260 [141]3000:[139]ER[177]0[167]10000
  138. 3270 [129]J[178]1[164]26:[161]#2,A$:[130]J
  139. 3280 [161]#2,A$:[161]#2,B$:IR$[178]A$[170]B$
  140. 3290 [161]#2,A$:[161]#2,A$:[161]#2,B$:DR$[178]A$[170]B$
  141. 3300 [160]2:[142]
  142. 10000 [143] DROP OUT
  143. 10010 [151]55,[194](998):[151]56,[194](999):[156]:[144]
  144. 15000 [131]76,66,3,76,91,3,162,3,32,198,255,160,0,132,3,32,207,255,145
  145. 15010 [131]3,165,144,208,3,200,208,244,32,204,255,96,162,3,32,201,255,160
  146. 15020 [131]0,132,3,177,3,32,210,255,165,144,208,3,200,208,244,32,204,255,96
  147.